﻿    Public Class Excecao
        Inherits Exception
        Public Instrucao As String
        Public Sub New(ByVal message As String)
            MyBase.New(message)
        End Sub
        Public Sub New(ByVal message As String, ByVal instrucao As String)
            MyBase.New(message)
            Me.Instrucao = instrucao
        End Sub
        Public Sub New(ByVal message As String, ByVal inner As Exception)
            MyBase.New(message, inner)
        End Sub
    End Class
